home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BlondesBrunettes.dxr / Internal_4_reserve cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.4 KB  |  41 lines
  1. global reserve, stock, foundation, equal, hotcard, points
  2.  
  3. on beginSprite me
  4.   sprite(me.spriteNum).visible = 1
  5.   sprite(me.spriteNum).member = stock.cards[1].rank & "_" & stock.cards[1].suit
  6.   stock.cards.deleteAt(1)
  7.   reserve.addCard(makesymbol(me.spriteNum), new(script("card"), me.spriteNum))
  8. end
  9.  
  10. on mouseDown me
  11.   if sprite(me.spriteNum).visible = 1 then
  12.     if me.spriteNum = reserve.getlastcard().spnum then
  13.       puppetSound(3, "pickcard")
  14.       sprite(me.spriteNum).moveableSprite = 1
  15.       sprite(me.spriteNum).locZ = me.spriteNum + 1000
  16.       sprite(me.spriteNum).loc = the mouseLoc
  17.     end if
  18.   end if
  19. end
  20.  
  21. on mouseUp me
  22.   if sprite(me.spriteNum).moveableSprite = 1 then
  23.     if (equal = 1) and ((hotcard >= 28) and (hotcard <= 35)) then
  24.       puppetSound(3, "pickcard")
  25.       sprite(me.spriteNum).moveableSprite = 0
  26.       sprite(me.spriteNum).visible = 0
  27.       sprite(me.spriteNum).loc = reserve.getlastcard().location
  28.       sprite(me.spriteNum).locZ = me.spriteNum
  29.       sprite(hotcard).member = sprite(the clickOn).member
  30.       foundation[makesymbol(hotcard)].addCard(new(script("card"), hotcard))
  31.       reserve.cards.deleteAt(reserve.cards.count)
  32.       points = points + 15
  33.     else
  34.       puppetSound(3, "dropcard")
  35.       sprite(me.spriteNum).moveableSprite = 0
  36.       sprite(me.spriteNum).loc = reserve.getlastcard().location
  37.       sprite(me.spriteNum).locZ = me.spriteNum
  38.     end if
  39.   end if
  40. end
  41.